home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / char-table.elc < prev    next >
Emacs Compiled Lisp  |  1992-02-04  |  3.5 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs v18 byte-compiled Lisp data default
99% file data default
100% gt2 Kopftext: '(require (quote case-table)) default (weak)
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime text/x-emacs-lisp default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 73 65 2d 74 61 | 62 6c 65 29 29 0a 0a 28 | case-ta|ble))..(|
|00000020| 64 65 66 75 6e 20 62 75 | 66 66 65 72 2d 63 74 6c |defun bu|ffer-ctl|
|00000030| 2d 61 72 72 6f 77 2d 6f | 66 66 20 6e 69 6c 20 22 |-arrow-o|ff nil "|
|00000040| 5c 0a 44 69 73 70 6c 61 | 79 20 63 6f 6e 74 72 6f |\.Displa|y contro|
|00000050| 6c 20 63 68 61 72 61 63 | 74 65 72 73 20 61 73 20 |l charac|ters as |
|00000060| 5c 5c 20 6e 75 6d 62 65 | 72 20 69 6e 20 63 75 72 |\\ numbe|r in cur|
|00000070| 65 6e 74 20 62 75 66 66 | 65 72 2e 0a 44 6f 65 73 |ent buff|er..Does|
|00000080| 20 6e 6f 74 20 63 68 61 | 6e 67 65 20 65 78 69 73 | not cha|nge exis|
|00000090| 74 69 6e 67 20 77 69 6e | 64 6f 77 73 2e 22 20 28 |ting win|dows." (|
|000000a0| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|000000b0| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 20 89 10 87 |te-code |"... ...|
|000000c0| 22 20 5b 62 75 66 66 65 | 72 2d 63 68 61 72 2d 74 |" [buffe|r-char-t|
|000000d0| 61 62 6c 65 20 6e 69 6c | 20 62 61 63 6b 73 6c 61 |able nil| backsla|
|000000e0| 73 68 2d 63 68 61 72 2d | 74 61 62 6c 65 5d 20 33 |sh-char-|table] 3|
|000000f0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 62 75 66 66 65 |))..(def|un buffe|
|00000100| 72 2d 63 74 6c 2d 61 72 | 72 6f 77 2d 6f 6e 20 6e |r-ctl-ar|row-on n|
|00000110| 69 6c 20 22 5c 0a 44 69 | 73 70 6c 61 79 20 63 6f |il "\.Di|splay co|
|00000120| 6e 74 72 6f 6c 20 63 68 | 61 72 61 63 74 65 72 73 |ntrol ch|aracters|
|00000130| 20 61 73 20 5e 20 63 68 | 61 72 61 63 74 65 72 20 | as ^ ch|aracter |
|00000140| 69 6e 20 63 75 72 65 6e | 74 20 62 75 66 66 65 72 |in curen|t buffer|
|00000150| 2e 0a 44 6f 65 73 20 6e | 6f 74 20 63 68 61 6e 67 |..Does n|ot chang|
|00000160| 65 20 65 78 69 73 74 69 | 6e 67 20 77 69 6e 64 6f |e existi|ng windo|
|00000170| 77 73 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |ws." (in|teractiv|
|00000180| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |e) (byte|-code ".|
|00000190| 88 c2 20 89 10 87 22 20 | 5b 62 75 66 66 65 72 2d |.. ..." |[buffer-|
|000001a0| 63 68 61 72 2d 74 61 62 | 6c 65 20 6e 69 6c 20 63 |char-tab|le nil c|
|000001b0| 74 6c 2d 61 72 72 6f 77 | 2d 63 68 61 72 2d 74 61 |tl-arrow|-char-ta|
|000001c0| 62 6c 65 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ble] 3))|..(defun|
|000001d0| 20 63 74 6c 2d 61 72 72 | 6f 77 2d 6f 66 66 20 6e | ctl-arr|ow-off n|
|000001e0| 69 6c 20 22 5c 0a 44 69 | 73 70 6c 61 79 20 63 6f |il "\.Di|splay co|
|000001f0| 6e 74 72 6f 6c 20 63 68 | 61 72 61 63 74 65 72 73 |ntrol ch|aracters|
|00000200| 20 61 73 20 5c 5c 20 6e | 75 6d 62 65 72 20 69 6e | as \\ n|umber in|
|00000210| 20 73 65 6c 65 63 74 65 | 64 20 77 69 6e 64 6f 77 | selecte|d window|
|00000220| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|00000230| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|00000240| c2 20 21 87 22 20 5b 6e | 69 6c 20 73 65 74 2d 77 |. !." [n|il set-w|
|00000250| 69 6e 64 6f 77 2d 63 68 | 61 72 2d 74 61 62 6c 65 |indow-ch|ar-table|
|00000260| 20 62 61 63 6b 73 6c 61 | 73 68 2d 63 68 61 72 2d | backsla|sh-char-|
|00000270| 74 61 62 6c 65 5d 20 33 | 29 29 0a 0a 28 64 65 66 |table] 3|))..(def|
|00000280| 75 6e 20 63 74 6c 2d 61 | 72 72 6f 77 2d 6f 6e 20 |un ctl-a|rrow-on |
|00000290| 6e 69 6c 20 22 5c 0a 44 | 69 73 70 6c 61 79 20 63 |nil "\.D|isplay c|
|000002a0| 6f 6e 74 72 6f 6c 20 63 | 68 61 72 61 63 74 65 72 |ontrol c|haracter|
|000002b0| 73 20 61 73 20 5e 20 63 | 68 61 72 61 63 74 65 72 |s as ^ c|haracter|
|000002c0| 20 69 6e 20 73 65 6c 65 | 63 74 65 64 20 77 69 6e | in sele|cted win|
|000002d0| 64 6f 77 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |dow." (i|nteracti|
|000002e0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000002f0| c0 88 c1 c2 20 21 87 22 | 20 5b 6e 69 6c 20 73 65 |.... !."| [nil se|
|00000300| 74 2d 77 69 6e 64 6f 77 | 2d 63 68 61 72 2d 74 61 |t-window|-char-ta|
|00000310| 62 6c 65 20 63 74 6c 2d | 61 72 72 6f 77 2d 63 68 |ble ctl-|arrow-ch|
|00000320| 61 72 2d 74 61 62 6c 65 | 5d 20 33 29 29 0a 0a 28 |ar-table|] 3))..(|
|00000330| 64 65 66 75 6e 20 64 65 | 66 61 75 6c 74 2d 63 74 |defun de|fault-ct|
|00000340| 6c 2d 61 72 72 6f 77 2d | 6f 66 66 20 6e 69 6c 20 |l-arrow-|off nil |
|00000350| 22 5c 0a 42 79 20 64 65 | 66 61 75 6c 74 2c 20 64 |"\.By de|fault, d|
|00000360| 69 73 70 6c 61 79 20 63 | 6f 6e 74 72 6f 6c 20 63 |isplay c|ontrol c|
|00000370| 68 61 72 61 63 74 65 72 | 73 20 61 73 20 5c 5c 20 |haracter|s as \\ |
|00000380| 6e 75 6d 62 65 72 2e 22 | 20 28 69 6e 74 65 72 61 |number."| (intera|
|00000390| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|000003a0| 65 20 22 c1 88 c2 c0 c3 | 20 5c 22 87 22 20 5b 62 |e ".....| \"." [b|
|000003b0| 75 66 66 65 72 2d 63 68 | 61 72 2d 74 61 62 6c 65 |uffer-ch|ar-table|
|000003c0| 20 6e 69 6c 20 73 65 74 | 2d 64 65 66 61 75 6c 74 | nil set|-default|
|000003d0| 20 62 61 63 6b 73 6c 61 | 73 68 2d 63 68 61 72 2d | backsla|sh-char-|
|000003e0| 74 61 62 6c 65 5d 20 34 | 29 29 0a 0a 28 64 65 66 |table] 4|))..(def|
|000003f0| 75 6e 20 64 65 66 61 75 | 6c 74 2d 63 74 6c 2d 61 |un defau|lt-ctl-a|
|00000400| 72 72 6f 77 2d 6f 6e 20 | 6e 69 6c 20 22 5c 0a 42 |rrow-on |nil "\.B|
|00000410| 79 20 64 65 66 61 75 6c | 74 2c 20 64 69 73 70 6c |y defaul|t, displ|
|00000420| 61 79 20 63 6f 6e 74 72 | 6f 6c 20 63 68 61 72 61 |ay contr|ol chara|
|00000430| 63 74 65 72 73 20 61 73 | 20 5e 20 63 68 61 72 61 |cters as| ^ chara|
|00000440| 63 74 65 72 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |cter." (|interact|
|00000450| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000460| 22 c1 88 c2 c0 c3 20 5c | 22 87 22 20 5b 62 75 66 |"..... \|"." [buf|
|00000470| 66 65 72 2d 63 68 61 72 | 2d 74 61 62 6c 65 20 6e |fer-char|-table n|
|00000480| 69 6c 20 73 65 74 2d 64 | 65 66 61 75 6c 74 20 63 |il set-d|efault c|
|00000490| 74 6c 2d 61 72 72 6f 77 | 2d 63 68 61 72 2d 74 61 |tl-arrow|-char-ta|
|000004a0| 62 6c 65 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |ble] 4))|..(defun|
|000004b0| 20 64 65 73 63 72 69 62 | 65 2d 63 68 61 72 2d 74 | describ|e-char-t|
|000004c0| 61 62 6c 65 20 28 63 74 | 29 20 22 5c 0a 44 65 73 |able (ct|) "\.Des|
|000004d0| 63 72 69 62 65 20 74 68 | 65 20 67 69 76 65 6e 20 |cribe th|e given |
|000004e0| 63 68 61 72 20 74 61 62 | 6c 65 20 69 6e 20 61 20 |char tab|le in a |
|000004f0| 68 65 6c 70 20 62 75 66 | 66 65 72 2e 22 20 28 62 |help buf|fer." (b|
|00000500| 79 74 65 2d 63 6f 64 65 | 20 22 c4 c5 c5 1a 19 18 |yte-code| "......|
|00000510| c6 90 c7 c8 21 88 c9 ca | cb 0b 21 21 21 88 c7 cc |....!...|..!!!...|
|00000520| 21 88 c9 ca cd 0b 21 21 | 21 88 c7 ce 21 88 c9 ca |!.....!!|!...!...|
|00000530| cf 0b 21 21 21 88 c7 d0 | 21 88 d1 d2 0b 21 21 88 |..!!!...|!....!!.|
|00000540| c7 d3 21 88 d4 0b 21 89 | 12 88 c4 89 11 88 09 0a |..!...!.|........|
|00000550| 47 57 85 5c 5c 00 0a 09 | ca 0a 09 48 21 49 88 09 |GW.\\...|...H!I..|
|00000560| 54 89 11 88 82 44 00 88 | c9 0a 21 88 c7 d5 21 88 |T....D..|..!...!.|
|00000570| 08 d6 58 85 a7 00 d1 08 | 21 88 c7 d7 21 88 d8 0b |..X.....|!...!...|
|00000580| 08 5c 22 89 12 88 c4 89 | 11 88 09 0a 47 57 85 96 |.\".....|....GW..|
|00000590| 00 0a 09 ca 0a 09 48 21 | 49 88 09 54 89 11 88 82 |......H!|I..T....|
|000005a0| 7e 00 88 c9 0a 21 88 c7 | d9 21 88 08 54 89 10 88 |~....!..|.!..T...|
|000005b0| 82 65 00 88 da 20 91 2b | 87 22 20 5b 69 20 6a 20 |.e... .+|." [i j |
|000005c0| 72 20 63 74 20 30 20 6e | 69 6c 20 22 2a 48 65 6c |r ct 0 n|il "*Hel|
|000005d0| 70 2a 22 20 70 72 69 6e | 63 20 22 46 72 61 6d 65 |p*" prin|c "Frame|
|000005e0| 20 67 6c 79 66 3a 20 22 | 20 70 72 69 6e 31 20 67 | glyf: "| prin1 g|
|000005f0| 6c 79 66 2d 74 6f 2d 73 | 74 72 69 6e 67 20 67 65 |lyf-to-s|tring ge|
|00000600| 74 2d 63 68 61 72 2d 74 | 61 62 6c 65 2d 66 72 61 |t-char-t|able-fra|
|00000610| 6d 65 67 20 22 0a 54 72 | 75 6e 63 61 74 69 6f 6e |meg ".Tr|uncation|
|00000620| 20 67 6c 79 66 3a 20 22 | 20 67 65 74 2d 63 68 61 | glyf: "| get-cha|
|00000630| 72 2d 74 61 62 6c 65 2d | 74 72 75 6e 63 67 20 22 |r-table-|truncg "|
|00000640| 0a 57 72 61 70 20 67 6c | 79 66 3a 20 22 20 67 65 |.Wrap gl|yf: " ge|
|00000650| 74 2d 63 68 61 72 2d 74 | 61 62 6c 65 2d 77 72 61 |t-char-t|able-wra|
|00000660| 70 67 20 22 0a 53 65 6c | 65 63 74 69 76 65 20 64 |pg ".Sel|ective d|
|00000670| 69 73 70 6c 61 79 20 63 | 68 61 72 61 63 74 65 72 |isplay c|haracter|
|00000680| 3a 20 22 20 64 65 73 63 | 72 69 62 65 2d 63 68 61 |: " desc|ribe-cha|
|00000690| 72 61 63 74 65 72 20 67 | 65 74 2d 63 68 61 72 2d |racter g|et-char-|
|000006a0| 74 61 62 6c 65 2d 69 6e | 76 69 73 63 20 22 0a 53 |table-in|visc ".S|
|000006b0| 65 6c 65 63 74 69 76 65 | 20 64 69 73 70 6c 61 79 |elective| display|
|000006c0| 20 72 6f 70 65 3a 20 22 | 20 67 65 74 2d 63 68 61 | rope: "| get-cha|
|000006d0| 72 2d 74 61 62 6c 65 2d | 69 6e 76 69 73 72 20 22 |r-table-|invisr "|
|000006e0| 0a 0a 43 68 61 72 61 63 | 74 65 72 20 72 6f 70 65 |..Charac|ter rope|
|000006f0| 73 3a 0a 22 20 32 35 35 | 20 22 09 22 20 67 65 74 |s:." 255| "." get|
|00000700| 2d 63 68 61 72 2d 74 61 | 62 6c 65 2d 64 69 73 70 |-char-ta|ble-disp|
|00000710| 72 20 22 0a 22 20 70 72 | 69 6e 74 2d 68 65 6c 70 |r "." pr|int-help|
|00000720| 2d 72 65 74 75 72 6e 2d | 6d 65 73 73 61 67 65 5d |-return-|message]|
|00000730| 20 33 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 65 | 31))..(|defun de|
|00000740| 73 63 72 69 62 65 2d 77 | 69 6e 64 6f 77 2d 63 68 |scribe-w|indow-ch|
|00000750| 61 72 2d 74 61 62 6c 65 | 20 6e 69 6c 20 22 5c 0a |ar-table| nil "\.|
|00000760| 44 65 73 63 72 69 62 65 | 20 74 68 65 20 63 68 61 |Describe| the cha|
|00000770| 72 20 74 61 62 6c 65 20 | 6f 66 20 74 68 65 20 73 |r table |of the s|
|00000780| 65 6c 65 63 74 65 64 20 | 77 69 6e 64 6f 77 2e 22 |elected |window."|
|00000790| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000007a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 c3 |byte-cod|e ".....|
|000007b0| 20 21 21 87 22 20 5b 6e | 69 6c 20 64 65 73 63 72 | !!." [n|il descr|
|000007c0| 69 62 65 2d 63 68 61 72 | 2d 74 61 62 6c 65 20 77 |ibe-char|-table w|
|000007d0| 69 6e 64 6f 77 2d 63 68 | 61 72 2d 74 61 62 6c 65 |indow-ch|ar-table|
|000007e0| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|000007f0| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 73 74 |] 4))..(|defun st|
|00000800| 61 6e 64 61 72 64 2d 63 | 68 61 72 73 2d 38 62 69 |andard-c|hars-8bi|
|00000810| 74 20 28 6c 20 68 29 20 | 22 5c 0a 44 69 73 70 6c |t (l h) |"\.Displ|
|00000820| 61 79 20 63 68 61 72 61 | 63 74 65 72 73 20 69 6e |ay chara|cters in|
|00000830| 20 74 68 65 20 72 61 6e | 67 65 20 5b 4c 2c 20 48 | the ran|ge [L, H|
|00000840| 5d 20 77 69 74 68 20 74 | 68 65 69 72 20 61 63 74 |] with t|heir act|
|00000850| 75 61 6c 0a 76 61 6c 75 | 65 73 20 69 6e 20 62 61 |ual.valu|es in ba|
|00000860| 63 6b 73 6c 61 73 68 2d | 63 68 61 72 2d 74 61 62 |ckslash-|char-tab|
|00000870| 6c 65 20 61 6e 64 20 63 | 74 6c 2d 61 72 72 6f 77 |le and c|tl-arrow|
|00000880| 2d 63 68 61 72 2d 74 61 | 62 6c 65 2e 22 20 28 62 |-char-ta|ble." (b|
|00000890| 79 74 65 2d 63 6f 64 65 | 20 22 c3 18 09 0a 58 85 |yte-code| "....X.|
|000008a0| 28 00 c4 c5 c6 09 21 21 | 21 89 10 88 c7 c8 20 09 |(.....!!|!..... .|
|000008b0| 08 23 88 c7 c9 20 09 08 | 23 88 09 54 89 11 88 82 |.#... ..|#..T....|
|000008c0| 02 00 88 08 29 87 22 20 | 5b 72 20 6c 20 68 20 6e |....)." |[r l h n|
|000008d0| 69 6c 20 76 65 63 74 6f | 72 20 6e 65 77 2d 67 6c |il vecto|r new-gl|
|000008e0| 79 66 20 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |yf char-|to-strin|
|000008f0| 67 20 70 75 74 2d 63 68 | 61 72 2d 74 61 62 6c 65 |g put-ch|ar-table|
|00000900| 2d 64 69 73 70 72 20 62 | 61 63 6b 73 6c 61 73 68 |-dispr b|ackslash|
|00000910| 2d 63 68 61 72 2d 74 61 | 62 6c 65 20 63 74 6c 2d |-char-ta|ble ctl-|
|00000920| 61 72 72 6f 77 2d 63 68 | 61 72 2d 74 61 62 6c 65 |arrow-ch|ar-table|
|00000930| 5d 20 31 31 29 29 0a 0a | 28 64 65 66 75 6e 20 73 |] 11))..|(defun s|
|00000940| 74 61 6e 64 61 72 64 2d | 63 68 61 72 2d 61 73 63 |tandard-|char-asc|
|00000950| 69 69 20 28 63 20 73 29 | 20 22 5c 0a 44 69 73 70 |ii (c s)| "\.Disp|
|00000960| 6c 61 79 20 63 68 61 72 | 61 63 74 65 72 20 43 20 |lay char|acter C |
|00000970| 77 69 74 68 20 73 74 72 | 69 6e 67 20 53 20 69 6e |with str|ing S in|
|00000980| 0a 20 20 20 62 61 63 6b | 73 6c 61 73 68 2d 63 68 |.   back|slash-ch|
|00000990| 61 72 2d 74 61 62 6c 65 | 20 61 6e 64 20 63 74 6c |ar-table| and ctl|
|000009a0| 2d 61 72 72 6f 77 2d 63 | 68 61 72 2d 74 61 62 6c |-arrow-c|har-tabl|
|000009b0| 65 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |e." (byt|e-code "|
|000009c0| c3 09 21 18 c4 c5 20 0a | 08 23 88 c4 c6 20 0a 08 |..!... .|.#... ..|
|000009d0| 23 29 88 0a 87 22 20 5b | 72 20 73 20 63 20 73 74 |#)..." [|r s c st|
|000009e0| 72 69 6e 67 2d 74 6f 2d | 72 6f 70 65 20 70 75 74 |ring-to-|rope put|
|000009f0| 2d 63 68 61 72 2d 74 61 | 62 6c 65 2d 64 69 73 70 |-char-ta|ble-disp|
|00000a00| 72 20 62 61 63 6b 73 6c | 61 73 68 2d 63 68 61 72 |r backsl|ash-char|
|00000a10| 2d 74 61 62 6c 65 20 63 | 74 6c 2d 61 72 72 6f 77 |-table c|tl-arrow|
|00000a20| 2d 63 68 61 72 2d 74 61 | 62 6c 65 5d 20 38 29 29 |-char-ta|ble] 8))|
|00000a30| 0a 0a 28 64 65 66 75 6e | 20 73 74 61 6e 64 61 72 |..(defun| standar|
|00000a40| 64 2d 63 68 61 72 2d 67 | 31 20 28 63 20 73 63 29 |d-char-g|1 (c sc)|
|00000a50| 20 22 5c 0a 44 69 73 70 | 6c 61 79 20 63 68 61 72 | "\.Disp|lay char|
|00000a60| 61 63 74 65 72 20 43 20 | 61 73 20 47 31 20 63 68 |acter C |as G1 ch|
|00000a70| 61 72 61 63 74 65 72 20 | 53 43 20 69 6e 0a 20 20 |aracter |SC in.  |
|00000a80| 20 62 61 63 6b 73 6c 61 | 73 68 2d 63 68 61 72 2d | backsla|sh-char-|
|00000a90| 74 61 62 6c 65 20 61 6e | 64 20 63 74 6c 2d 61 72 |table an|d ctl-ar|
|00000aa0| 72 6f 77 2d 63 68 61 72 | 2d 74 61 62 6c 65 2e 22 |row-char|-table."|
|00000ab0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 c4 c5 | (byte-c|ode "...|
|00000ac0| c6 09 21 c7 51 21 21 18 | c8 c9 20 0a 08 23 88 c8 |..!.Q!!.|.. ..#..|
|00000ad0| ca 20 0a 08 23 88 08 29 | 87 22 20 5b 72 20 73 63 |. ..#..)|." [r sc|
|00000ae0| 20 63 20 76 65 63 74 6f | 72 20 6e 65 77 2d 67 6c | c vecto|r new-gl|
|00000af0| 79 66 20 22 0e 22 20 63 | 68 61 72 2d 74 6f 2d 73 |yf "." c|har-to-s|
|00000b00| 74 72 69 6e 67 20 22 0f | 22 20 70 75 74 2d 63 68 |tring ".|" put-ch|
|00000b10| 61 72 2d 74 61 62 6c 65 | 2d 64 69 73 70 72 20 62 |ar-table|-dispr b|
|00000b20| 61 63 6b 73 6c 61 73 68 | 2d 63 68 61 72 2d 74 61 |ackslash|-char-ta|
|00000b30| 62 6c 65 20 63 74 6c 2d | 61 72 72 6f 77 2d 63 68 |ble ctl-|arrow-ch|
|00000b40| 61 72 2d 74 61 62 6c 65 | 5d 20 31 30 29 29 0a 0a |ar-table|] 10))..|
|00000b50| 28 64 65 66 75 6e 20 73 | 74 72 69 6e 67 2d 74 6f |(defun s|tring-to|
|00000b60| 2d 72 6f 70 65 20 28 73 | 29 20 22 5c 0a 43 6f 6e |-rope (s|) "\.Con|
|00000b70| 76 65 72 74 20 73 74 72 | 69 6e 67 20 53 20 74 6f |vert str|ing S to|
|00000b80| 20 61 20 72 6f 70 65 20 | 77 69 74 68 20 31 20 67 | a rope |with 1 g|
|00000b90| 6c 79 66 20 66 6f 72 20 | 65 61 63 68 20 63 68 61 |lyf for |each cha|
|00000ba0| 72 61 63 74 65 72 2e 22 | 20 28 62 79 74 65 2d 63 |racter."| (byte-c|
|00000bb0| 6f 64 65 20 22 09 47 18 | c5 08 c3 5c 22 1a c6 1c |ode ".G.|...\"...|
|00000bc0| c7 0c 08 5c 22 85 24 00 | 0a 0c c8 c9 09 0c 48 21 |...\".$.|......H!|
|00000bd0| 21 49 88 0c 54 89 14 88 | 82 0a 00 88 0a 2b 87 22 |!I..T...|.....+."|
|00000be0| 20 5b 6c 20 73 20 72 20 | 6e 69 6c 20 69 20 6d 61 | [l s r |nil i ma|
|00000bf0| 6b 65 2d 76 65 63 74 6f | 72 20 30 20 2f 3d 20 67 |ke-vecto|r 0 /= g|
|00000c00| 65 74 2d 67 6c 79 66 20 | 63 68 61 72 2d 74 6f 2d |et-glyf |char-to-|
|00000c10| 73 74 72 69 6e 67 5d 20 | 39 29 29 0a 0a 28 64 65 |string] |9))..(de|
|00000c20| 66 75 6e 20 74 6f 67 67 | 6c 65 2d 63 74 6c 2d 61 |fun togg|le-ctl-a|
|00000c30| 72 72 6f 77 20 6e 69 6c | 20 22 5c 0a 54 6f 67 67 |rrow nil| "\.Togg|
|00000c40| 6c 65 20 64 69 73 70 6c | 61 79 20 6f 66 20 63 6f |le displ|ay of co|
|00000c50| 6e 74 72 6f 6c 20 63 68 | 61 72 61 63 74 65 72 73 |ntrol ch|aracters|
|00000c60| 20 69 6e 20 73 65 6c 65 | 63 74 65 64 20 77 69 6e | in sele|cted win|
|00000c70| 64 6f 77 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |dow." (i|nteracti|
|00000c80| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00000c90| c0 88 c1 20 c2 20 3d 83 | 0f 00 c3 20 82 11 00 c4 |... . =.|... ....|
|00000ca0| 20 87 22 20 5b 6e 69 6c | 20 77 69 6e 64 6f 77 2d | ." [nil| window-|
|00000cb0| 63 68 61 72 2d 74 61 62 | 6c 65 20 63 74 6c 2d 61 |char-tab|le ctl-a|
|00000cc0| 72 72 6f 77 2d 63 68 61 | 72 2d 74 61 62 6c 65 20 |rrow-cha|r-table |
|00000cd0| 63 74 6c 2d 61 72 72 6f | 77 2d 6f 66 66 20 63 74 |ctl-arro|w-off ct|
|00000ce0| 6c 2d 61 72 72 6f 77 2d | 6f 6e 5d 20 35 29 29 0a |l-arrow-|on] 5)).|
|00000cf0| 0a 28 64 65 66 75 6e 20 | 74 6f 67 67 6c 65 2d 64 |.(defun |toggle-d|
|00000d00| 65 66 61 75 6c 74 2d 63 | 74 6c 2d 61 72 72 6f 77 |efault-c|tl-arrow|
|00000d10| 20 6e 69 6c 20 22 5c 0a | 54 6f 67 67 6c 65 20 64 | nil "\.|Toggle d|
|00000d20| 65 66 61 75 6c 74 20 64 | 69 73 70 6c 61 79 20 6f |efault d|isplay o|
|00000d30| 66 20 63 6f 6e 74 72 6f | 6c 20 63 68 61 72 61 63 |f contro|l charac|
|00000d40| 74 65 72 73 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ters." (|interact|
|00000d50| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000d60| 22 c0 88 c1 c2 21 c3 20 | 3d 83 10 00 c4 20 82 12 |"....!. |=.... ..|
|00000d70| 00 c5 20 87 22 20 5b 6e | 69 6c 20 64 65 66 61 75 |.. ." [n|il defau|
|00000d80| 6c 74 2d 76 61 6c 75 65 | 20 62 75 66 66 65 72 2d |lt-value| buffer-|
|00000d90| 63 68 61 72 2d 74 61 62 | 6c 65 20 63 74 6c 2d 61 |char-tab|le ctl-a|
|00000da0| 72 72 6f 77 2d 63 68 61 | 72 2d 74 61 62 6c 65 20 |rrow-cha|r-table |
|00000db0| 64 65 66 61 75 6c 74 2d | 63 74 6c 2d 61 72 72 6f |default-|ctl-arro|
|00000dc0| 77 2d 6f 66 66 20 64 65 | 66 61 75 6c 74 2d 63 74 |w-off de|fault-ct|
|00000dd0| 6c 2d 61 72 72 6f 77 2d | 6f 6e 5d 20 35 29 29 0a |l-arrow-|on] 5)).|
|00000de0| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000df0| 20 63 68 61 72 2d 74 61 | 62 6c 65 29 29 0a       | char-ta|ble)).  |
+--------+-------------------------+-------------------------+--------+--------+